   5 :RETURN ;N=0
   9 S=0;T=50;K=0;F=7;CLEAR ;BC=0;FC=179;GOSUB 560;GOSUB 570;BOX 0,-43,160,1,1
  40 BOX 0,34,160,1,1;U=0;V=20;FOR U=-64TO 0STEP 8;GOSUB 500;NEXT U
  60 IF K=48K=40
  62 H=12-K
  70 A=6;I=H-8;M=1;U=0;BOX J,-40,5,4,2;BOX 0,P,3,5,2;P=I;IF H>-12F=F-1
  71 IF S>0BOX U,V,30,10,2
  72 V=H+8;IF S>0FC=RND (31)×8+3;GOSUB 500
  74 NT=16;FOR X=-40TO 40STEP 16;MU=58+RND (9);BOX X,H,7,4,1;BOX X,H-1,5,2,2;BOX X,H+1,13,1,1
  75 FOR Z=-1TO 1STEP 2;BOX X+7×Z,H,1,1,1;BOX X+4×Z,H-3,1,1,1;BOX X+1×Z,H+2,1,2,3;NEXT Z;NEXT X;NT=2
 100 FOR X=-40TO 40STEP 16;@(M)=X;BOX X,I,7,1,1;BOX X,I,1,5,1;M=M+1;NEXT X
 115 G=K+12;IF A=0GOTO 250
 120 R=RND (6);Q=@(R);IF PX(Q,I)GOTO 140
 130 GOTO 120
 140 BOX Q,I,7,5,2;FOR Y=I-4TO -44STEP -4;BOX Q,Y,7,1,1;BOX Q,Y,1,5,1;IF Y=-44GOTO 600
 158 &(22)=95;G=G+1;&(17)=G;IF L=1GOTO 162
 160 L=RND (F);IF L>1GOTO 164
 162 BOX 0,P,3,5,1;IF P<-40GOSUB 290
 164 J=KN(1)×2÷5;BOX J,-40,5,4,1;FOR Z=1TO 25;NEXT Z
 180 IF TR(1)=0GOTO 260
 185 &(17)=0;E=Y;IF ABS(J)<5E=P
 190 LINE J,-37,0;LINE J,E,1;&(23)=29;&(19)=5;&(21)=25;FOR Z=28TO 16STEP -1;&(21)=Z
 191 FOR W=1TO 3;NEXT W;NEXT Z;&(19)=0;&(21)=0;LINE J,-37,2
 200 IF ABS(J-Q)<4BOX Q,Y,7,5,2;&(18)=0;BOX Q,H,15,6,2;GOTO 520
 225 IF ABS(J)<2IF L=1BOX 0,P,3,5,2;GOSUB 310
 250 IF A=0IF H=-20K=K+8;S=S+50;F=6-(K÷8);GOSUB 570;GOTO 60
 255 IF A=0H=H-8;GOTO 70
 260 BOX Q,Y,7,5,2;BOX 0,P,3,5,2;BOX J,-40,5,4,2
 262 IF L=1P=P-8
 272 NEXT Y
 290 IF T=0GOTO 600
 300 FOR Z=1TO 6;MU=68;MU=33;NEXT Z;T=T-10;P=I;L=2;GOSUB 560;RETURN 
 310 MU=68;MU=73;MU=77;MU=75;MU=83;S=S+5;GOSUB 570;P=I;L=2;RETURN 
 500 &(20)=67;&(22)=95;&(17)=22;&(18)=98
 502 BOX U,V,30,2,1;BOX U,V+1,28,2,1;BOX U,V+2,26,2,1;BOX U,V+3,22,2,1;BOX U,V+4,16,2,1
 503 BOX U,V-1,24,2,1;BOX U,V-2,8,2,1;BOX U+9,V-2,4,2,1;BOX U-9,V-2,4,2,1
 504 FOR X=U-9TO U+9STEP 3;BOX X,V,1,2,2;NEXT X
 505 IF U=0&(17)=0;&(18)=0;RETURN 
 506 BOX U,V,30,10,2;RETURN 
 520 &(21)=95;&(23)=29;FOR Z=8TO 48STEP 8;&(19)=Z;NEXT Z;FOR Z=8TO 0STEP -2;&(21)=0;&(21)=Z;FOR W=1TO 9;NEXT W;NEXT Z
 540 S=S+2;&(19)=0;A=A-1;GOSUB 570;BOX J,-40,5,4,2;GOTO 115
 560 NT=0;CX=-71;CY=40;PRINT "SHIELDS:",#1,T;NT=2;RETURN 
 570 NT=0;CX=12;CY=40;PRINT "SCORE:",#1,S,#1,"0";NT=2;RETURN 
 600 &(22)=0;&(16)=0;&(23)=10;&(21)=95;&(19)=99;FOR Z=1TO 99;BC=(RND (2)-1)×7;NEXT Z;&(21)=0;&(16)=72;&(23)=0
 605 NT=0;IF S>N N=S
 630 GOSUB 506;V=-39;GOSUB 500;CX=-47;CY=0;PRINT "HIGH SC0RE",#5,N,#1,"0";PRINT ;CX=-59;PRINT "PRESS KEY F0R REPLAY
 650 &(19)=0;IF KPGOTO 9
>RUN 
